home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / adjustl.z / adjustl
Encoding:
Text File  |  2002-10-03  |  1.9 KB  |  65 lines
  1. ADJUSTL(3I)                                           Last changed: 4-13-99
  2.  
  3.  
  4. NNAAMMEE
  5.      AADDJJUUSSTTLL - Adjusts a character string to the left
  6.  
  7. SSYYNNOOPPSSIISS
  8.      AADDJJUUSSTTLL (([SSTTRRIINNGG==]_s_t_r_i_n_g))
  9.  
  10. IIMMPPLLEEMMEENNTTAATTIIOONN
  11.      UNICOS, UNICOS/mk, IRIX systems
  12.  
  13.      CF90, MIPSpro 7 Fortran 90
  14.  
  15. SSTTAANNDDAARRDDSS
  16.      Fortran
  17.  
  18. DDEESSCCRRIIPPTTIIOONN
  19.      The AADDJJUUSSTTLL intrinsic function adjusts a character string to the left,
  20.      removes leading blanks, and inserts trailing blanks.  It accepts the
  21.      following argument:
  22.  
  23.      _s_t_r_i_n_g    Must be of type character
  24.  
  25.      AADDJJUUSSTTLL is an elemental function.  The name of this intrinsic cannot
  26.      be passed as an argument.
  27.  
  28. RREETTUURRNN VVAALLUUEESS
  29.      The result is type character with the same length as _s_t_r_i_n_g.
  30.  
  31.      The value of the result is the same as _s_t_r_i_n_g, except that any leading
  32.      blanks have been deleted and the same number of trailing blanks have
  33.      been inserted.
  34.  
  35. EEXXAAMMPPLLEESS
  36.      In the following examples, a carat (^^) indicates a blank.
  37.  
  38.      Example 1:
  39.  
  40.           CHARACTER*6 VAR
  41.           VAR = ADJUSTL( '^^WORD' )
  42.           PRINT *,"VAR='", VAR,"'"
  43.  
  44.      This code segment produces the following output:
  45.  
  46.           VAR='WORD^^'
  47.  
  48.      Example 2:
  49.  
  50.                 CHARACTER*29 STRING
  51.                 STRING = '^^^TEST STRING FOR ADJUSTL^^^'
  52.                 WRITE(6,1) '>', STRING, '<'
  53.                 WRITE(6,1) '>', ADJUSTL(STRING), '<'
  54.           1     FORMAT(3A)
  55.                 END
  56.  
  57.      This code returns the following output:
  58.  
  59.           >^^^TEST STRING FOR ADJUSTL^^^<
  60.           >TEST STRING FOR ADJUSTL^^^^^^<
  61.  
  62. SSEEEE AALLSSOO
  63.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed version of this
  64.      man page.
  65.